<%OPTION EXPLICIT%>
<%
Response.Expires=-100
Response.Buffer=true

'on error resume next
Sub CreateRecursiveFolder(folderPath)
    Dim aFolderPath
    Dim folderTemp
    Dim fso 
	set fso= Server.CreateObject("Scripting.FileSystemObject")
    Dim i
    folderPath = Replace(folderPath, "\\", "\")
    aFolderPath = Split(folderPath, "\")
    folderTemp = aFolderPath(0)
    
    For i = 1 To UBound(aFolderPath)
        folderTemp = folderTemp & "\" & aFolderPath(i)
        
        If Not fso.FolderExists(folderTemp) Then
            fso.CreateFolder (folderTemp)
        End If
    Next
End Sub



Dim  PathTemporal, iInd
Dim sArchivo, sArchivos, sFileName, sPath
Dim aspUpload, oProyecto , sOrigen
dim sXml, sDupli,idInstanciaProyecto,idInstalacion
Dim idInstancia, idTipoInstalacion, dFiles, fso, fo, f


sOrigen = UCASE(Request("Origen"))
idInstanciaProyecto = Request("idInstanciaProyecto")
idInstancia = Request("idInstancia")
idInstalacion = Request("idInstalacion")
idTipoInstalacion = Request("idTipoInstalacion")

Set aspUpload = Server.CreateObject("Persits.Upload.1")
Set oProyecto = Server.CreateObject("SIGINProyectos_N.cProyecto") 
Set dFiles = Server.CreateObject("Scripting.Dictionary")
Set fso = Server.CreateObject("Scripting.FileSystemObject")

PathTemporal = Request.ServerVariables("APPL_PHYSICAL_PATH")& "Proyectos\Documentos\Temp\" & Session.SessionID 
' PathTemporal = Request.ServerVariables("APPL_PHYSICAL_PATH")& "TEMPORAL\" & Session.SessionID 
aspUpload.CreateDirectory PathTemporal , True

'if not fso.FolderExists(PathTemporal) then
'	fso.CreateFolder(PathTemporal)
'	CreateRecursiveFolder(PathTemporal) ' 9 Mar 09
'end if

iInd = aspUpload.Save(PathTemporal)


sXml = "<registros>"

For Each sArchivos in aspUpload.Files
  sFileName = sArchivos.FileName
  sFileName = Replace(sFileName, " ", "_")
  sPath = PathTemporal & "\" & sFileName

  Call sArchivos.SaveAs(sPath)
  dFiles.Add sArchivos.FileName, True
  
	sArchivo  = sArchivos.Path
	
	sXml = sXml & "<registro>"
	sXml = sXml & "<path>"
	sXml = sXml & replace(sArchivo,"\","\\")		
	sXml = sXml & "</path>"
	sXml = sXml & "<duplicado>"
if sOrigen = "PEDIDO" OR sOrigen = "CAMBIOALCANCE" OR sOrigen = "INSTALACIONES" Then
	sXml = sXml & "NO"
else
	sXml = sXml & oProyecto.ExisteNombreArchivo(sArchivos.FileName,idInstanciaProyecto)
end if	
	
	sXml = sXml & "</duplicado>"
	sXml = sXml & "<nombre>"
	sXml = sXml & sArchivos.FileName  
	sXml = sXml & "</nombre>"	
	sXml = sXml & "</registro>"
	
next	

sXml = sXml & "</registros>"

Set fo  = fso.GetFolder(PathTemporal)

'For Each f In fo.Files
'  If not dFiles.Exists(f.Name) Then
'    Call f.Delete(True)
'  End If 
'Next 

Set fso = Nothing
Set aspUpload = nothing
Set oProyecto = nothing


dim serverURL
serverURL = "http://" & Request.ServerVariables("SERVER_NAME") & Application("Dina_URL")


select case sOrigen
	case "PEDIDO", 	"CAMBIOALCANCE"
		response.write(serverURL & "C_Archivos/ResultadoSubidaArchivo.asp?Origen=" & sOrigen & "&sXml=" & Server.URLEncode(sXml))
	case "INSTALACIONES"
		Response.write(serverURL & "C_Archivos/execInstalaciones.asp?idInstancia=" & idInstancia & "&sXml=" & Server.URLEncode(sXml) & "&idInstalacion=" & idInstalacion & "&idTipoInstalacion=" & idTipoInstalacion)
	case else
		Response.write(serverURL & "C_Archivos/exec.asp?idInstanciaProyecto=" & idInstanciaProyecto & "&sXml=" & Server.URLEncode(sXml))

end select
%>